Received: from svcs1.digex.net (svcs1.digex.net [204.91.197.224])
by mail1.access.digex.net (8.8.5/8.8.5) with ESMTP id SAA19384
for <mcox@access.digex.net>; Wed, 29 Jan 1997 18:26:07 -0500 (EST)
Received: (from daemon@localhost)
by svcs1.digex.net (8.8.5/8.8.5) id OAA08361
for amos-out; Wed, 29 Jan 1997 14:55:47 -0500 (EST)
Received: from mail2.access.digex.net (mail2.access.digex.net [205.197.247.3])
by svcs1.digex.net (8.8.5/8.8.5) with ESMTP id OAA08358
for <amos-list@svcs1.digex.net>; Wed, 29 Jan 1997 14:55:46 -0500 (EST)
Received: from hermes.beotel.net (ns.beotel.net [194.106.162.2])
by mail2.access.digex.net (8.8.5/8.8.5) with ESMTP id OAA16475
for <amos-list@access.digex.net>; Wed, 29 Jan 1997 14:55:42 -0500 (EST)
Received: from setnet.UUCP (Usetnet@localhost) by hermes.beotel.net (8.7.6/8.6.12) with UUCP id UAA17396 for amos-list@access.digex.net; Wed, 29 Jan 1997 20:37:21 +0100
X-Authentication-Warning: hermes.beotel.net: Usetnet set sender to setnet!smolenski using -f
Received: by setnet.co.yu (0.99.960714)
id AA02945; 28 Jan 97 14:51:30 +0100
From: smolenski@setnet.co.yu (Nikola Smolenski)
Date: 28 Jan 97 14:48:04 +0100
Subject: rnd
Message-ID: <b43_9701281451@setnet.co.yu>
Organization: SETNet - Ujedinjeni BBS-ovi Balkana
To: amos-list@access.digex.net
Status: RO
X-Status:
gs> If someone's interested I finally got a program that goes randomly one
gs> time to each label:
gs> Dim USED(10)
gs> Do
gs> _START:
gs> X=Rnd(9)+1
gs> If USED(X)<>0 Then Goto _START
This could be wery slow - imagine that you have 100 labels and you have to
goto _START about 50 times in the last step! And before that 49 times etc.
I personaly liked the most solution with swap(). And mine, ofcourse:)